home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / asm / XZN-ST03IntroS.lha / St03 / ST03Intro.s < prev    next >
Text File  |  1997-12-11  |  62KB  |  2,398 lines
  1. ******************************************************************************
  2. *                INTRO DEFY 7 BY MODEM/X-ZONE                 *
  3. ******************************************************************************
  4.  
  5.     SECTION    tunnelcode,CODE
  6.     incdir    "dh1:programs/asmone/modem/st03/"
  7.     include    "daworkbench.s"
  8.     include    "startup2.s"
  9.  
  10. WAITDISK    equ    0
  11.  
  12. DMASET    equ    %1000001110000000    ; copper, bitplane abilitati
  13.  
  14. START:
  15. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  16. *                INTROPART                      *
  17. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  18.     movem.l    d0-d7/a0-a6,-(SP)    ; setto la musica
  19.     lea    P61_data,a0    ; Indirizzo del modulo in a0
  20.     lea    $dff000,a6    ; Ricordiamoci il $dff000 in a6!
  21.     sub.l    a1,a1        ; I samples non sono a parte, mettiamo zero
  22.     sub.l    a2,a2        ; no samples -> modulo non compattato
  23.     lea    samples,a2    ; modulo compattato! Buffer destinazione per
  24.                 ; i samples (in chip ram) da indicare!
  25.     bsr.w    P61_Init
  26.     movem.l    (SP)+,d0-d7/a0-a6
  27.  
  28.     move.l    BaseVbr(PC),A1
  29.     move.l    #MyInt6c,$6C(A1)
  30.     move.w    #DMASET,$96(a5)        ; DMACON - abilita bitplane e copper
  31.     move.w    #$e020,$9a(a5)        ; INTENA - Abilito Master and lev6
  32.  
  33.     move.l    #TITOLO,d0
  34.     lea    BPLPOINTERS,A1    
  35.     moveq    #8-1,D7
  36.  
  37. POINTB:
  38.     move.w    d0,6(a1)
  39.     swap    d0
  40.     move.w    d0,2(a1)
  41.     swap    d0
  42.     add.l    #$2800,d0
  43.     addq.w    #8,a1
  44.     dbra    d7,POINTB
  45.  
  46.     move.l    #COPLIST,$dff080
  47.     move.w    d0,$dff088
  48.  
  49.     move.w    #0,$dff1fc
  50.     move.w    #$c00,$dff106
  51.  
  52.     clr.l    VBcounter
  53.  
  54. LOGOWBLANY1:
  55.     bsr.w    WBLAN
  56.  
  57.     bsr.w    MAINFADEINOUT
  58.  
  59.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  60.     beq.w    ESCI
  61.  
  62.     cmpi.l    #85,VBcounter
  63.     blo.s    LOGOWBLANY1
  64.  
  65.     clr.l    VBcounter
  66.  
  67. LOGOWBLANY2:
  68.     bsr.w    WBLAN
  69.  
  70.  
  71.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  72.     beq.w    ESCI
  73.  
  74.     cmpi.l    #698,VBcounter
  75.     blo.s    LOGOWBLANY2
  76.  
  77.     clr.l    VBcounter
  78.  
  79. LOGOWBLANY3:
  80.     bsr.w    WBLAN
  81.  
  82.     bsr.w    MAINFADEINOUT
  83.  
  84.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  85.     beq.w    ESCI
  86.  
  87.     cmpi.l    #95,VBcounter
  88.     blo.s    LOGOWBLANY3
  89.  
  90.     clr.l    VBcounter
  91.  
  92.     MOVE.L    #SALE,d0
  93.     LEA    SALEBPLPOINTERS,A1
  94.     MOVEQ    #4-1,D1
  95.  
  96. SALEPOINTBP:
  97.     move.w    d0,6(a1)
  98.     swap    d0
  99.     move.w    d0,2(a1)
  100.     swap    d0
  101.     add.l    #40*572,d0
  102.     addq.w    #8,a1
  103.     dbra    d1,SALEPOINTBP
  104.  
  105.     move.l    #SALECOPLIST,$dff080
  106.     move.w    d0,$dff088
  107.     move.w    #0,$dff1fc
  108.     move.w    #$c00,$dff106
  109.  
  110. LOGOWBLANYSALE:
  111.     bsr.w    WBLAN
  112.  
  113.     bsr.w    SALITA
  114.  
  115.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  116.     beq.w    ESCI
  117.  
  118.     cmpi.l    #100,VBcounter
  119.     blo.s    LOGOWBLANYSALE
  120.  
  121.     clr.l    VBcounter
  122.  
  123. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  124. *                LOGO DEFY 7                      *
  125. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  126.  
  127.     lea     BPLPOINTERS2,a1    ; Indirizzo Puntatori in a1
  128.     move.l    #DEFY,d0    ; Indirizzo Bitplanes in d0
  129.     moveq    #4-1,d1        ; Numero Bitplane 4
  130.  
  131. POINTBP:
  132.      move.w    d0,6(a1)    ; Copia la word bassa
  133.      swap    d0        ; Inverte il registro
  134.      move.w    d0,2(a1)    ; Copia la word alta
  135.      swap    d0        ; Inverte il registro
  136.      add.l    #40*60,d0    ; alto 60 pixel
  137.      addq.w    #8,a1        ; Prossimo puntatore ai bitplane
  138.      dbra    d1,POINTBP    ; Ripetiamo il ciclo d1 volte
  139.  
  140.     move.l    #COPLIST2,$80(a5)    ; Puntiamo la nostra 1a COP
  141.     move.w    d0,$88(a5)        ; Facciamo partire la 1a COP
  142.  
  143. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  144. *                FLASH BIANCO                      *
  145. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  146.  
  147.     lea     BPLVUOTO,a1    ; Indirizzo Puntatori in a1
  148.     move.l    #VUOTO,d0    ; Indirizzo Bitplanes in d0
  149.  
  150.      move.w    d0,6(a1)    ; Copia la word bassa
  151.      swap    d0        ; Inverte il registro
  152.      move.w    d0,2(a1)    ; Copia la word alta
  153.      swap    d0        ; Inverte il registro
  154.  
  155.     move.l    #COPVUOTO,$84(a5)    ; Puntiamo la nostra 2a COP
  156.  
  157.  
  158.     lea    FINECOP,a4
  159.     move.l    #$8affff,(a4)    ; facciamo partire anche la COP2
  160.  
  161. WBLANY1:
  162.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  163.     beq.w    ESCI
  164.  
  165.     cmpi.l    #10,VBcounter
  166.     blo.s    WBLANY1
  167.  
  168.     clr.l    VBcounter
  169.  
  170. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  171. *            PRIMA PARTE: SFERA                      *
  172. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  173.  
  174.  
  175.     lea     BPLPOINTERS3,a1    ; Indirizzo Puntatori in a1
  176.     move.l    #SFERA,d0    ; Indirizzo Bitplanes in d0
  177.     moveq    #7,d1        ; Numero Bitplane 8
  178.  
  179. POINTBPa:
  180.      move.w    d0,6(a1)    ; Copia la word bassa
  181.      swap    d0        ; Inverte il registro
  182.      move.w    d0,2(a1)    ; Copia la word alta
  183.      swap    d0        ; Inverte il registro
  184.      add.l    #40*256,d0    ; Prossimo bitplane
  185.      addq.w    #8,a1        ; Prossimo puntatore ai bitplane
  186.      dbra    d1,POINTBPa    ; Ripetiamo il ciclo d1 volte
  187.  
  188.     move.l    #COPLIST3,$84(a5)    ; Puntiamo la nostra 2a COP
  189.  
  190.     lea    FINECOP,a4
  191.     move.l    #$8affff,(a4)    ; facciamo partire anche la COP2
  192.  
  193. WBLANNY3:
  194.     bsr.w    WBLAN
  195.  
  196.     bsr.w    MAPPING
  197.     bsr.w    READ24BIT
  198.     bsr.w    ANIMAP
  199.     bsr.w    RIMBALZO
  200.  
  201.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  202.     beq.w    ESCI
  203.  
  204.     cmpi.l    #1080,VBcounter
  205.     blo.s    WBLANNY3
  206.  
  207.     clr.l    VBcounter
  208.  
  209. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  210. *                FLASH BIANCO                      *
  211. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  212.  
  213.     lea     BPLVUOTO,a1    ; Indirizzo Puntatori in a1
  214.     move.l    #VUOTO,d0    ; Indirizzo Bitplanes in d0
  215.  
  216.      move.w    d0,6(a1)    ; Copia la word bassa
  217.      swap    d0        ; Inverte il registro
  218.      move.w    d0,2(a1)    ; Copia la word alta
  219.      swap    d0        ; Inverte il registro
  220.  
  221.     move.l    #COPVUOTO,$84(a5)    ; Puntiamo la nostra 2a COP
  222.  
  223.     lea    FINECOP,a4
  224.     move.l    #$8affff,(a4)    ; facciamo partire anche la COP2
  225.  
  226. WBLANY2:
  227.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  228.     beq.w    ESCI
  229.  
  230.     cmpi.l    #10,VBcounter
  231.     blo.s    WBLANY2
  232.  
  233.     clr.l    VBcounter
  234.  
  235. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  236. *            SECONDA PARTE: CREDITS                      *
  237. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  238.  
  239.     lea     BPLVUOTO,a1    ; Indirizzo Puntatori in a1
  240.     move.l    #CREDITS,d0    ; Indirizzo Bitplanes in d0
  241.  
  242.      move.w    d0,6(a1)    ; Copia la word bassa
  243.      swap    d0        ; Inverte il registro
  244.      move.w    d0,2(a1)    ; Copia la word alta
  245.      swap    d0        ; Inverte il registro
  246.  
  247.     move.l    #COPVUOTO,$84(a5)    ; Puntiamo la nostra 2a COP
  248.  
  249.     lea    FINECOP,a4
  250.     move.l    #$8affff,(a4)    ; facciamo partire anche la COP2
  251.  
  252. WBLANNY4:
  253.     bsr.w    WBLAN
  254.  
  255.     BSR.W    PRINTCARATTERE
  256.     BSR.W    PRINTCARATTERE
  257.  
  258.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  259.     beq.w    ESCI
  260.  
  261.     cmpi.l    #810,VBcounter
  262.     blo.s    WBLANNY4
  263.  
  264.     clr.l    VBcounter
  265.  
  266. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  267. *                FLASH BIANCO                      *
  268. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  269.  
  270.     lea     BPLVUOTO,a1    ; Indirizzo Puntatori in a1
  271.     move.l    #VUOTO,d0    ; Indirizzo Bitplanes in d0
  272.  
  273.      move.w    d0,6(a1)    ; Copia la word bassa
  274.      swap    d0        ; Inverte il registro
  275.      move.w    d0,2(a1)    ; Copia la word alta
  276.      swap    d0        ; Inverte il registro
  277.  
  278.     move.l    #COPVUOTO,$84(a5)    ; Puntiamo la nostra 2a COP
  279.  
  280.     lea    FINECOP,a4
  281.     move.l    #$8affff,(a4)    ; facciamo partire anche la COP2
  282.  
  283. WBLANY3:
  284.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  285.     beq.w    ESCI
  286.  
  287.     cmpi.l    #10,VBcounter
  288.     blo.s    WBLANY3
  289.  
  290.     clr.l    VBcounter
  291.     
  292. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  293. *            TERZA PARTE: TUNNEL                      *
  294. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  295.  
  296.     lea     BPLPOINTERS5,a1    ; Indirizzo Puntatori in a1
  297.     move.l    #TUNNEL,d0    ; Indirizzo Bitplanes in d0
  298.     moveq    #7,d1        ; Numero Bitplane 8
  299.  
  300. POINTBPb:
  301.      move.w    d0,6(a1)    ; Copia la word bassa
  302.      swap    d0        ; Inverte il registro
  303.      move.w    d0,2(a1)    ; Copia la word alta
  304.      swap    d0        ; Inverte il registro
  305.      add.l    #40*256,d0    ; Prossimo bitplane
  306.      addq.w    #8,a1        ; Prossimo puntatore ai bitplane
  307.      dbra    d1,POINTBPb    ; Ripetiamo il ciclo d1 volte
  308.  
  309.     move.l    #COPLIST5,$84(a5)    ; Puntiamo la nostra 2a COP
  310.  
  311.     lea    FINECOP,a4
  312.     move.l    #$8affff,(a4)    ; facciamo partire anche la COP2
  313.  
  314. WBLANNY5:
  315.     bsr.w    WBLAN
  316.  
  317.     bsr.w    MAPPING
  318.     bsr.w    TUNNELREAD24BIT
  319.     bsr.w    ANIMAP
  320.     bsr.w    ONDULA
  321.  
  322.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  323.     beq.w    ESCI
  324.  
  325.     cmpi.l    #2280,VBcounter
  326.     blo.s    WBLANNY5
  327.  
  328.     clr.l    VBcounter
  329.  
  330. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  331. *                FLASH BIANCO                      *
  332. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  333.  
  334.     lea     BPLVUOTO,a1    ; Indirizzo Puntatori in a1
  335.     move.l    #VUOTO,d0    ; Indirizzo Bitplanes in d0
  336.  
  337.      move.w    d0,6(a1)    ; Copia la word bassa
  338.      swap    d0        ; Inverte il registro
  339.      move.w    d0,2(a1)    ; Copia la word alta
  340.      swap    d0        ; Inverte il registro
  341.  
  342.     move.l    #COPVUOTO,$84(a5)    ; Puntiamo la nostra 2a COP
  343.  
  344.     lea    FINECOP,a4
  345.     move.l    #$8affff,(a4)    ; facciamo partire anche la COP2
  346.  
  347. WBLANNY6:
  348.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  349.     beq.w    ESCI
  350.  
  351.     cmpi.l    #10,VBcounter
  352.     blo.s    WBLANNY6
  353.  
  354.     clr.l    VBcounter
  355.  
  356. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  357. *                    USCITA DEL LOGO DEFY 7                  *
  358. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  359.  
  360.     move.l    #SALE,d0
  361.     lea    SALEBPLPOINTERS-40*256*4,A1
  362.     moveq    #4-1,D1
  363.  
  364. POINTBPLAST:
  365.     move.w    d0,6(a1)
  366.     swap    d0
  367.     move.w    d0,2(a1)
  368.     swap    d0
  369.     add.l    #40*572,d0
  370.     addq.w    #8,a1
  371.     dbra    d1,POINTBPLAST
  372.  
  373.     move.l    #SALECOPLIST,$dff080
  374.     move.w    d0,$dff088
  375.     move.w    #0,$dff1fc
  376.     move.w    #$c00,$dff106
  377.  
  378. LOGOWBLANYLAST:
  379.     bsr.w    WBLAN
  380.  
  381.     bsr.w    SALITA
  382.  
  383.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  384.     beq.w    ESCI
  385.  
  386.     cmpi.l    #18,VBCOUNTER
  387.     blo.s    LOGOWBLANYLAST
  388.  
  389. ESCI:
  390.     clr.l    VBCOUNTER
  391.  
  392.     lea    $dff000,a6    ; stoppo la musica
  393.     bsr.w    P61_End
  394.     rts
  395.  
  396. ******************************************************************************
  397. ;            ROUTINE CHE ASPETTA IL VBL
  398. ******************************************************************************
  399.  
  400. WBLAN:
  401.     move.l    $dff004,d0
  402.     and.l    #$0001ff00,d0
  403.     cmp.l    #$00012b00,d0
  404.     bne.s    WBLAN
  405. WBLAN1:
  406.     move.l    $dff004,d0
  407.     and.l    #$0001ff00,d0
  408.     cmp.l    #$00012b00,d0
  409.     beq.s    WBLAN1
  410.     rts
  411.  
  412. ******************************************************************************
  413.             ; Interrupt level 3, VERTB...
  414. ******************************************************************************
  415.  
  416.     cnop    0,4
  417.  
  418. MyInt6c:
  419.     BTST    #5,$DFF01F
  420.     beq.s    NoIntVertb
  421.     MOVEM.L    D0-D7/A0-A6,-(SP)
  422.     ST    FrameFlagCounter
  423.     addq.l    #1,VBcounter
  424.     MOVEM.L    (SP)+,D0-D7/A0-A6
  425. NoIntVertb:
  426.     BTST    #4,$DFF01F
  427.     beq.s    NoIntCoper
  428.     MOVEM.L    D0-D7/A0-A6,-(SP)
  429.     MOVEM.L    (SP)+,D0-D7/A0-A6
  430. NoIntCoper:
  431.     MOVE.W    #$70,$DFF09C
  432.     RTE
  433.  
  434. *****************************************************************************
  435.  
  436. FrameFlagCounter:
  437.     dc.w    0
  438.  
  439.  
  440. AspettaFrameFlag:
  441.     SF    FrameFlagCounter
  442. StoFlaNon:
  443.     TST.B    FrameFlagCounter
  444.     BEQ.B    StoFlaNon
  445.     RTS
  446.  
  447. AspettVBL:
  448.     cmp.b    #$40,$dff006
  449.     bne.s    AspettVBL
  450. AspettVBL2:
  451.     cmp.b    #$40,$dff006
  452.     beq.s    AspettVBL2
  453.     rts
  454.  
  455. *******************************************************************************
  456. ;        ROUTINE CONVERSIONE PALETTE 24BIT SFERA
  457. *******************************************************************************
  458.     
  459. READ24BIT:
  460.     lea    PALETTETUNNEL,a0    ; Indirizzo palette immagine in a0
  461.     lea    COLP0+2,a1        ; Indirizzo di partenza nibble alti
  462.     lea    COLP0b+2,a2        ; Indirizzo di partenza nibble bassi
  463.     moveq    #7,d6            ; 8 banchi di 32 colori
  464.     
  465. BANCHI:
  466.     moveq    #31,d7            ; 32 colori per banco
  467.     moveq    #0,d0            ; Azzeriamo d0,d2,d3
  468.     moveq    #0,d2
  469.     moveq    #0,d3
  470.         
  471. CONVERTI:
  472.     move.b    3(a0),d2        ; Bb in d2
  473.     andi.b    #%00001111,d2        ; nibble basso 0b
  474.     move.b    2(a0),d3        ; Gg in d3
  475.     lsl.b    #4,d3            ; 4 bit a sinistra per g0
  476.     ori.b    d2,d3            ; nibble 0b in d2 e g0 per gb in d3
  477.     move.b    d3,1(a2)        ; Copiamo il byte in copperlist
  478.     move.b    1(a0),(a2)        ; Rr in copperlist
  479.     andi.b    #%00001111,(a2)        ; nibble basso per 0r
  480. ;-------------------------------
  481.     move.b    3(a0),d2        ; Bb in d2
  482.     lsr.b    #4,d2            ; 4 bit a destra per 0b
  483.     move.b    2(a0),d3        ; Gg in d3        
  484.     andi.b    #%11110000,d3        ; nibble alto per g0
  485.     ori.b    d2,d3            ; 0B in d2 con G0 in d3 per gb in d3
  486.     move.b    d3,1(a1)        ; GB in copperlist
  487.     move.b    1(a0),d2        ; Rr in d2
  488.     lsr.b    #4,d2            ; destra di 4 bit per 0r
  489.     move.b    d2,(a1)            ; 0r in copperlist
  490.     addq.w    #4,a0            ; Prossimo colore palette sfera
  491.     addq.w    #4,a1            ; Prossimo registro colore nibble alti
  492.     addq.w    #4,a2            ; Prossimo registro colore nibble bassi
  493.     dbra    d7,CONVERTI        ; Ripetiamo il loop
  494.  
  495.     add.w    #(128+8),a1
  496.     add.w    #(128+8),a2
  497.     dbra    d6,BANCHI
  498.     rts
  499.  
  500. *******************************************************************************
  501. ;        ROUTINE CHUNKY PIXEL MAPPING SFERA-TUNNEL
  502. *******************************************************************************
  503.  
  504. MAPPING:
  505.     lea    CHUNKYPIC,a0        ; Indirizzo figura chunky in a0
  506.     lea    CHUNKYPALETTE,a1    ; Indirizzo palette figura Chunky in a1
  507.     lea    PALETTETUNNEL,a2    ; Indirizzo palette Tunnel in a2
  508.     add.w    CHUNKYOFFSET,a0        ; Aggiungiamo l` Offset
  509.     moveq    #0,d0            ; Puliamo d0
  510.     move.b    #255,d0            ; Numero loop: 256 pixel
  511.     moveq    #0,d2            ; Puliamo d2
  512.  
  513. MAPLOOP:
  514.     clr.l    d1
  515.     move.b    (a0)+,d1
  516.     lsl.w    #2,d1
  517.     add.l    a1,d1
  518.     move.l    d1,a3
  519.     move.l    (a3),(a2)+
  520.     dbra    d0,MAPLOOP
  521.     move.l    #0,PALETTETUNNEL
  522.     rts
  523.  
  524. *******************************************************************************
  525. ;        ROUTINE CHUNKY PIXEL AGGIORNAMENTO TEXTURE SFERA
  526. *******************************************************************************
  527.  
  528. ANIMAP:
  529.     cmpi.w    #0,CHUNKYOFFSET        ; Abbiamo raggiunto il margine inf?
  530.     bne.s    Nonazzera        ; Se no non azzera il flag direzione
  531.     move.w    #2656,chunkyoffset
  532.     rts
  533.  
  534. NONAZZERA:
  535.     subi.w    #16,CHUNKYOFFSET    ; +16 per riga precedente $f per rotaz!
  536.     rts                
  537.  
  538. *******************************************************************************
  539. ;            ROUTINE DI RIMBALZO SFERA
  540. *******************************************************************************
  541.  
  542. RIMBALZO:
  543.     lea    BPLPOINTERS3,A1
  544.     move.w    2(a1),d0
  545.     swap    d0
  546.     move.w    6(a1),d0
  547.     addq.l    #4,RIMTABPOINT
  548.     move.l    RIMTABPOINT(PC),a0
  549.     cmp.l    #FINERIMBALZTAB-4,a0
  550.     bne.s    NOBSTART2
  551.     move.l    #RIMBALZTAB-4,RIMTABPOINT
  552.  
  553. NOBSTART2:
  554.     move.l    (a0),d1
  555.     sub.l    d1,d0
  556.     lea    BPLPOINTERS3,a1
  557.     moveq    #7,d1
  558.  
  559. POINTBP2:
  560.     move.w    d0,6(a1)
  561.     swap    d0
  562.     move.w    d0,2(a1)
  563.     swap    d0
  564.     add.l    #$2800,d0
  565.     addq.w    #8,a1
  566.     dbra    d1,POINTBP2
  567.     rts
  568.  
  569. RIMTABPOINT:
  570.     dc.l    RIMBALZTAB-4
  571.  
  572. RIMBALZTAB:
  573.     dc.l    0,0,0,0,0,0,40,40,40,40,40,40,40,40,40
  574.     dc.l    40,40,2*40,2*40
  575.     dc.l    2*40,2*40,2*40,2*40,2*40
  576.     dc.l    3*40,3*40,3*40,3*40,3*40,4*40,4*40,4*40,5*40,5*40
  577.     dc.l    6*40,8*40
  578.     dc.l    -8*40,-6*40,-5*40
  579.     dc.l    -5*40,-4*40,-4*40,-4*40,-3*40,-3*40,-3*40,-3*40,-3*40
  580.     dc.l    -2*40,-2*40,-2*40,-2*40,-2*40
  581.     dc.l    -2*40,-2*40,-40,-40
  582.     dc.l    -40,-40,-40,-40,-40,-40,-40,-40,-40,0,0,0,0,0
  583. FINERIMBALZTAB:
  584.  
  585. *******************************************************************************
  586. ;        ROUTINE CONVERSIONE PALETTE 24BIT TUNNEL
  587. *******************************************************************************
  588.     
  589. TUNNELREAD24BIT:
  590.     lea    PALETTETUNNEL,a0    ; Indirizzo palette immagine in a0
  591.     lea    TUNNELCOLP0+2,a1    ; Indirizzo di partenza nibble alti
  592.     lea    TUNNELCOLP0b+2,a2    ; Indirizzo di partenza nibble bassi
  593.     moveq    #7,d6            ; 8 banchi di 32 colori
  594.     
  595. TUNNELBANCHI:
  596.     moveq    #31,d7            ; 32 colori per banco
  597.     moveq    #0,d0            ; Azzeriamo d0,d2,d3
  598.     moveq    #0,d2
  599.     moveq    #0,d3
  600.         
  601. TUNNELCONVERTI:
  602.     move.b    3(a0),d2        ; Bb in d2
  603.     andi.b    #%00001111,d2        ; nibble basso 0b
  604.     move.b    2(a0),d3        ; Gg in d3
  605.     lsl.b    #4,d3            ; 4 bit a sinistra per g0
  606.     ori.b    d2,d3            ; nibble 0b in d2 e g0 per gb in d3
  607.     move.b    d3,1(a2)        ; Copiamo il byte in copperlist
  608.     move.b    1(a0),(a2)        ; Rr in copperlist
  609.     andi.b    #%00001111,(a2)        ; nibble basso per 0r
  610. ;-------------------------------
  611.     move.b    3(a0),d2        ; Bb in d2
  612.     lsr.b    #4,d2            ; 4 bit a destra per 0b
  613.     move.b    2(a0),d3        ; Gg in d3        
  614.     andi.b    #%11110000,d3        ; nibble alto per g0
  615.     ori.b    d2,d3            ; 0B in d2 con G0 in d3 per gb in d3
  616.     move.b    d3,1(a1)        ; GB in copperlist
  617.     move.b    1(a0),d2        ; Rr in d2
  618.     lsr.b    #4,d2            ; destra di 4 bit per 0r
  619.     move.b    d2,(a1)            ; 0r in copperlist
  620.     addq.w    #4,a0            ; Prossimo colore palette sfera
  621.     addq.w    #4,a1            ; Prossimo registro colore nibble alti
  622.     addq.w    #4,a2            ; Prossimo registro colore nibble bassi
  623.     dbra    d7,TUNNELCONVERTI        ; Ripetiamo il loop
  624.  
  625.     add.w    #(128+8),a1
  626.     add.w    #(128+8),a2
  627.     dbra    d6,TUNNELBANCHI
  628.     rts
  629.  
  630. *******************************************************************************
  631. ;            ROUTINE DI ONDULAMENTO SCHERMO
  632. *******************************************************************************
  633.  
  634. ONDULA:
  635.     lea    CON1EFFETTO+8,a0
  636.     lea    CON1EFFETTO,a1
  637.     move    #128,d2
  638. SCAMBIA:
  639.     move.w    (A0),(A1)
  640.     addq.w    #8,a0        
  641.     addq.w    #8,a1        
  642.     dbra    d2,SCAMBIA    
  643.  
  644.     move.w    CON1EFFETTO,ULTIMOVALORE
  645.     rts            
  646.  
  647. VBcounter:
  648.     dc.l    0
  649. *******************************************************************************
  650. ;            ROUTINE DI FADE AGA
  651. *******************************************************************************
  652.  
  653. MAINFADEINOUT:
  654.     bsr.w    CALCOLAMETTICOL
  655.  
  656.     btst.b    #1,FLAGFADEINOUT
  657.     bne.s    FADEOUT
  658.  
  659. FADEIN:
  660.     addq.w    #3,MULTIPLIER
  661.     cmp.w    #255,MULTIPLIER
  662.     bne.s    NONFINITO
  663.     bchg.b    #1,FLAGFADEINOUT
  664.  
  665. FADEOUT:
  666.     subq.w    #3,MULTIPLIER
  667.     bne.w    NONFINITO
  668.     bchg.b    #1,FLAGFADEINOUT
  669.  
  670. NONFINITO:
  671.     rts
  672.  
  673. FLAGFADEINOUT:
  674.     dc.w    0
  675.  
  676. MULTIPLIER:
  677.     dc.w    0
  678.  
  679. TEMPORANEO:
  680.     dc.l    0
  681.  
  682. CALCOLAMETTICOL:
  683.     lea    TEMPORANEO(pc),a0
  684.     lea    LOGOCOLP0+2,a1
  685.     lea    LOGOCOLP0B+2,a2
  686.     lea    PALETTEPIC(pc),a3
  687.     moveq    #8-1,d7
  688.  
  689. CONVERTIPALETTEBANK:
  690.     moveq    #0,d0
  691.     moveq    #0,d2
  692.     moveq    #0,d3
  693.     moveq    #32-1,d6
  694.  
  695. DALONGAREGISTRI:
  696.     ;rosso    
  697.  
  698.     move.l    (a3),d4
  699.     andi.l    #%000011111111,d4
  700.     mulu.w    MULTIPLIER(pc),d4
  701.     asr.w    #8,d4
  702.     andi.l    #%000011111111,d4
  703.     move.l    d4,d5
  704.  
  705.     ;verde
  706.  
  707.     move.l    (a3),d4
  708.     andi.l    #%1111111100000000,d4
  709.     lsr.l    #8,d4
  710.     mulu.w    MULTIPLIER(pc),d4
  711.     asr.w    #8,d4
  712.     andi.l    #%0000000011111111,d4
  713.     lsl.l    #8,d4
  714.     or.l    d4,d5
  715.  
  716.     ;blu
  717.  
  718.     move.l    (a3)+,d4
  719.     andi.l    #%111111110000000000000000,d4
  720.     lsr.l    #8,d4
  721.     lsr.l    #8,d4
  722.     mulu.w    MULTIPLIER(pc),d4
  723.     asr.w    #8,d4
  724.     andi.l    #%0000000011111111,d4
  725.     lsl.l    #8,d4
  726.     lsl.l    #8,d4
  727.     or.l    d4,d5
  728.     move.l    d5,(a0)
  729.  
  730.     move.b    1(a0),(a2)
  731.     andi.b    #%00001111,(a2)
  732.     move.b    2(a0),d2
  733.     lsl.b    #4,d2
  734.     move.b    3(a0),d3
  735.     andi.b    #%00001111,d3
  736.     or.b    d2,d3
  737.     move.b    d3,1(a2)
  738.  
  739.     move.b    1(A0),d0
  740.     andi.b    #%11110000,d0
  741.     lsr.b    #4,d0
  742.     move.b    d0,(a1)
  743.     move.b    2(a0),d2
  744.     andi.b    #%11110000,d2
  745.     move.b    3(a0),d3
  746.     andi.b    #%11110000,d3
  747.     lsr.b    #4,d3
  748.     ori.b    d2,d3
  749.     move.b    d3,1(a1)
  750.     addq.w    #4,a1
  751.     addq.w    #4,a2
  752.     dbra    d6,DALONGAREGISTRI
  753.  
  754.     add.w    #(128+8),a1
  755.     add.w    #(128+8),a2
  756.  
  757.     dbra    d7,CONVERTIPALETTEBANK
  758.     rts
  759.  
  760. PALETTEPIC:
  761.     dc.l    $00000000,$00ffffff,$00f3f7f7,$00e7ebeb,$00dfdfdf,$00d3d3d7
  762.     dc.l    $00cbcbcb,$00bfbfc3,$00b3b7b7,$00ababaf,$00a3a3a3,$00979b9b
  763.     dc.l    $008f8f92,$00878787,$007f7f89,$00737777,$006b6f6f,$00636767
  764.     dc.l    $005b5f5f,$00535757,$004b4b4f,$00434747,$003f3f3f,$00373737
  765.     dc.l    $002f2f33,$0027272b,$00232323,$001b1b1f,$00131717,$000f0f0f
  766.     dc.l    $00070b0b,$00000007,$0063a7d7,$00578fb7,$0047779f,$00436797
  767.     dc.l    $003b578b,$00374b7f,$002f3f73,$002b3367,$0023275b,$001f1f4f
  768.     dc.l    $001f1b43,$001b1337,$00170f2b,$00130b1f,$000b070f,$00000000
  769.     dc.l    $00fff089,$00f1d780,$00e5c078,$00d8aa6f,$00cc9367,$00bf805f
  770.     dc.l    $00b36f57,$00a65c50,$009a4c48,$008d4147,$00813a46,$00753445
  771.     dc.l    $00692d44,$005c273f,$0050213c,$00431b36,$0063531f,$0057471b
  772.     dc.l    $004f3f17,$004b3b17,$00433313,$003f2f13,$00372b0f,$0033270f
  773.     dc.l    $002b1f0b,$00271b0b,$001f1707,$001b1307,$009a3182,$009b386c
  774.     dc.l    $009c3f57,$009f4647,$0097a347,$008ba347,$007fa347,$0077a747
  775.     dc.l    $006ba747,$0063a747,$00bf9b3b,$00c39337,$00cb8b2f,$00d37f2b
  776.     dc.l    $00db7327,$00e35f1f,$00eb4f17,$00ef3713,$00f71f0b,$00ff0000
  777.     dc.l    $00ff0000,$00ef0000,$00df0000,$00cf0000,$00bb0000,$00ab0000
  778.     dc.l    $009b0000,$008b0000,$007b0000,$006b0000,$005b0000,$00470000
  779.     dc.l    $00370000,$00270000,$00170000,$00070000,$00ff6333,$00eb6337
  780.     dc.l    $00d75f3b,$00c35f3f,$00af5b3f,$009b573f,$00874f3b,$00774737
  781.     dc.l    $00ebcf00,$00d7bb00,$00c7a700,$00a38700,$00876f00,$006b5300
  782.     dc.l    $00473300,$00231300,$00fbffff,$00cbdff3,$009fc3e3,$0077abd3
  783.     dc.l    $005393c7,$003383b7,$001b6fab,$00005f9b,$00005786,$00004b77
  784.     dc.l    $00004367,$00003757,$00002f47,$00002737,$00001b27,$00000f17
  785.     dc.l    $00ffefe7,$00efd7c7,$00dfbfaf,$00d3a797,$00c3977f,$00b3836b
  786.     dc.l    $00a37357,$00936347,$00835337,$0077432b,$0067371f,$00572b17
  787.     dc.l    $0047230f,$00371b07,$00270f00,$00170b00,$00e7d7b7,$00dfcdb1
  788.     dc.l    $00d8c6ac,$00d2bfa7,$00ccb8a3,$00c6b19f,$00bfaa9b,$00b9a496
  789.     dc.l    $00b39d91,$00ac978c,$00a69188,$00a08b84,$009a8580,$00937f7b
  790.     dc.l    $008d7976,$00877472,$00806d6c,$007b6867,$00756363,$006e5d5e
  791.     dc.l    $0068585a,$00625356,$005c4f51,$0055494c,$004f4447,$00493f42
  792.     dc.l    $0042393c,$003c3437,$00362f32,$00302a2c,$00292426,$00231f21
  793.     dc.l    $00ffffff,$00ffdbdb,$00ffb7b7,$00ff9393,$00ff6f6f,$00ff4b4b
  794.     dc.l    $00ff2727,$00ff0000,$007f83af,$0073779f,$006b6b93,$005b5b7b
  795.     dc.l    $00474761,$0037374b,$00272733,$0017171f,$0000ff00,$0000ff00
  796.     dc.l    $0000ff00,$0000ff00,$0000ff00,$0000ff00,$0000ff00,$0000ff00
  797.     dc.l    $0000ff00,$0037374b,$002f2f43,$002b2b3b,$00272733,$001f1f2b
  798.     dc.l    $001b1b23,$0017171f,$00ffffff,$00dbefe3,$00bfdbc7,$00a3cbaf
  799.     dc.l    $0087bb9b,$006fab83,$005b9b6f,$00478b5f,$00377b4f,$0027673b
  800.     dc.l    $001b572b,$000f471b,$0007370f,$00002707,$00001700,$00000700
  801.     dc.l    $0000ff00,$0000ff00,$0000ff00,$0000ff00,$0000ff00,$0000ff00
  802.     dc.l    $0000ff00,$0000ff00,$0000ff00,$0000ff00,$0000ff00,$0000ff00
  803.     dc.l    $0000ff00,$0000ff00,$0000ff00,$00ffffff
  804.     cnop    0,8
  805.  
  806. *******************************************************************************
  807. ;            SALITA DEL LOGO DEFY 7
  808. *******************************************************************************
  809.  
  810. SALITA:
  811.     lea    SALEBPLPOINTERS,A1
  812.     move.w    2(a1),d0
  813.     swap    d0
  814.     move.w    6(a1),d0
  815.     addq.l    #4,RIMTABPOINTSALITA
  816.     move.l    RIMTABPOINTSALITA(PC),a0
  817.     cmp.l    #FINERIMBALZTABSALITA-4,a0
  818.     bne.s    NOBSALITA
  819.     move.l    #RIMBALZTABSALITA-4,RIMTABPOINTSALITA
  820.  
  821. NOBSALITA:
  822.     move.l    (a0),d1
  823.     sub.l    d1,d0
  824.     lea    SALEBPLPOINTERS,a1
  825.     moveq    #4-1,d1
  826.  
  827. POINTBP2SALITA:
  828.     move.w    d0,6(a1)
  829.     swap    d0
  830.     move.w    d0,2(a1)
  831.     swap    d0
  832.     add.l    #40*572,d0
  833.     addq.w    #8,a1
  834.     dbra    d1,POINTBP2SALITA
  835.     rts
  836.  
  837.  
  838. RIMTABPOINTSALITA:
  839.     dc.l    RIMBALZTABSALITA-4
  840.  
  841. RIMBALZTABSALITA:
  842.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40            ; acceleriamo
  843.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40            ; acceleriamo
  844.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40            ; acceleriamo
  845.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40            ; acceleriamo
  846.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40            ; acceleriamo
  847.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40            ; acceleriamo
  848.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40            ; acceleriamo
  849.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40            ; acceleriamo
  850.     dc.l    -4*40,-4*40,-4*40,-4*40,-4*40            ; acceleriamo
  851.     dc.l    -4*40                        ; acceleriamo
  852.     dc.l    -3*40,-3*40,-3*40,-3*40,-3*40            ; acceleriamo
  853.     dc.l    -3*40,-3*40,-3*40,-3*40,-3*40            ; acceleriamo
  854.     dc.l    -3*40,-3*40,-3*40,-3*40,-3*40
  855.     dc.l    -2*40,-2*40,-2*40,-2*40,-2*40            ; deceleriamo
  856.     dc.l    -2*40,-2*40,-2*40,-40
  857.     dc.l    -40,-40,-40,-40,-40,-40,-40,-40,-40,0,0,0,0,0    ; in cima
  858.     dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  859. FINERIMBALZTABSALITA:
  860.  
  861. ;************************************************************************
  862. ;*    Stampa un carattere alla volta su schermo largo 320 pixel    *
  863. ;************************************************************************
  864.  
  865. PRINTCARATTERE:
  866.     move.l    PuntaTESTO(PC),A0 ; Indirizzo del testo da stampare in a0
  867.     moveq    #0,D2        ; Pulisci d2
  868.     move.b    (A0)+,D2    ; Prossimo carattere in d2
  869.     cmp.b    #$ff,d2        ; Segnale di fine testo? ($FF)
  870.     beq.s    FineTesto    ; Se si, esci senza stampare
  871.     tst.b    d2        ; Segnale di fine riga? ($00)
  872.     bne.s    NonFineRiga    ; Se no, non andare a capo
  873.  
  874.     add.l    #40*7,PuntaBITPLANE
  875.     addq.l    #1,PuntaTesto
  876.     move.b    (a0)+,d2
  877.  
  878. NonFineRiga:
  879.     sub.b    #$20,D2
  880.     mulu.w    #8,D2
  881.     move.l    D2,A2
  882.     add.l    #FONT,A2
  883.     move.l    PuntaBITPLANE(PC),A3
  884.  
  885.     move.b    (A2)+,(A3)
  886.     move.b    (A2)+,40(A3)
  887.     move.b    (A2)+,40*2(A3)
  888.     move.b    (A2)+,40*3(A3)
  889.     move.b    (A2)+,40*4(A3)
  890.     move.b    (A2)+,40*5(A3)
  891.     move.b    (A2)+,40*6(A3)
  892.     move.b    (A2)+,40*7(A3)
  893.  
  894.     addq.l    #1,PuntaBitplane ; avanziamo di 8 bit (PROSSIMO CARATTERE)
  895.     addq.l    #1,PuntaTesto    ; prossimo carattere da stampare
  896.  
  897. FINETESTO:
  898.     rts
  899.  
  900. PUNTATESTO:
  901.     dc.l    TESTO
  902.  
  903. PUNTABITPLANE:
  904.     dc.l    CREDITS
  905.  
  906. ;    $00 per "fine linea" - $FF per "fine testo"
  907.  
  908. TESTO:
  909.     dc.b    "                                        ",0
  910.     dc.b    "             INTRO CREDITS:             ",0
  911.     dc.b    "                                        ",0
  912.     dc.b    "                                        ",0
  913.     dc.b    "       1H CODE      MODEM/X-ZONE        ",0
  914.     dc.b    "                                        ",0
  915.     dc.b    "       GRAPHICS     LANCH/X-ZONE        ",0
  916.     dc.b    "                                        ",0
  917.     dc.b    "       MUSIC         FBY/X-ZONE         ",0
  918.     dc.b    "                                        ",0
  919.     dc.b    "                                        ",0
  920.     dc.b    "                                        ",0
  921.     dc.b    "                                        ",0
  922.     dc.b    "                                        ",0
  923.     dc.b    "                                        ",0
  924.     dc.b    "                                        ",0
  925.     dc.b    "      WANNA CONTACT US?  NO PROBLEM     ",0
  926.     dc.b    "                                        ",0
  927.     dc.b    "        PLASTIC DREAM BBS 24H/DAY       ",0
  928.     dc.b    "                                        ",0
  929.     dc.b    "             +39 41/5732014             ",0
  930.     dc.b    "                                        ",$FF
  931.     even
  932.  
  933. *******************************************************************************
  934. ;                ROUTINE MUSICALE
  935. *******************************************************************************
  936.  
  937. fade  = 0
  938. jump = 0
  939. system = 1
  940. CIA = 1
  941. exec = 1
  942. opt020 = 1
  943. use = $977f
  944.  
  945.     include    "play.s"    ; La routine vera e propria!
  946.  
  947.     Section    modulozzo,DATA
  948.  
  949. P61_DATA:
  950.     incbin    "P61.defy-mag"    ; Compresso
  951.  
  952.     Section    smp,BSS_C
  953.  
  954. SAMPLES:
  955.     ds.b    61944    ; lunghezza riportata dal p61con
  956.     
  957. *******************************************************************************
  958. ;            COPPERLIST 1,2,3,ETC.
  959. *******************************************************************************
  960.  
  961.     SECTION partedicopper,DATA_C
  962. COPLIST:
  963.     dc.w    $8E,$2c81
  964.     dc.w    $90,$2cc1
  965.     dc.w    $92,$0038
  966.     dc.w    $94,$00d0
  967.     dc.w    $100,%0000001000010001
  968.     dc.w    $102,0
  969.     dc.w    $104,0
  970.     dc.w    $108,0
  971.     dc.w    $10a,0
  972.  
  973.     dc.w    $1fc,0
  974.  
  975. BPLPOINTERS:
  976.     dc.w $e0,0,$e2,0
  977.     dc.w $e4,0,$e6,0
  978.     dc.w $e8,0,$ea,0
  979.     dc.w $ec,0,$ee,0
  980.     dc.w $f0,0,$f2,0
  981.     dc.w $f4,0,$f6,0
  982.     dc.w $f8,0,$fA,0
  983.     dc.w $fC,0,$fE,0
  984.  
  985.     DC.W    $106,$c00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE ALTI
  986. LOGOCOLP0:
  987.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  988.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  989.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  990.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  991.  
  992.     DC.W    $106,$e00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE BASSI
  993. LOGOCOLP0B:
  994.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  995.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  996.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  997.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  998.  
  999.     DC.W    $106,$2C00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE ALTI
  1000.  
  1001.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1002.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1003.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1004.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1005.  
  1006.     DC.W    $106,$2E00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE BASSI
  1007.  
  1008.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1009.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1010.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1011.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1012.  
  1013.     DC.W    $106,$4C00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE ALTI
  1014.  
  1015.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1016.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1017.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1018.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1019.  
  1020.     DC.W    $106,$4E00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE BASSI
  1021.  
  1022.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1023.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1024.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1025.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1026.  
  1027.     DC.W    $106,$6C00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE ALTI
  1028.  
  1029.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1030.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1031.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1032.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1033.  
  1034.     DC.W    $106,$6E00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE BASSI
  1035.  
  1036.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1037.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1038.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1039.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1040.  
  1041.     DC.W    $106,$8C00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE ALTI
  1042.  
  1043.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1044.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1045.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1046.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1047.  
  1048.     DC.W    $106,$8E00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE BASSI
  1049.  
  1050.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1051.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1052.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1053.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1054.  
  1055.     DC.W    $106,$AC00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE ALTI
  1056.  
  1057.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1058.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1059.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1060.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1061.  
  1062.     DC.W    $106,$AE00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE BASSI
  1063.  
  1064.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1065.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1066.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1067.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1068.  
  1069.     DC.W    $106,$CC00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE ALTI
  1070.  
  1071.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1072.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1073.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1074.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1075.  
  1076.     DC.W    $106,$CE00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE BASSI
  1077.  
  1078.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1079.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1080.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1081.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1082.  
  1083.     DC.W    $106,$EC00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE ALTI
  1084.  
  1085.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1086.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1087.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1088.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1089.  
  1090.     DC.W    $106,$EE00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE BASSI
  1091.  
  1092.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1093.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1094.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1095.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1096.  
  1097.     dc.w    $ffff,$fffe
  1098.  
  1099. SALECOPLIST:
  1100.     dc.w    $8E,$2c81
  1101.     dc.w    $90,$2cc1
  1102.     dc.w    $92,$0038
  1103.     dc.w    $94,$00d0
  1104.     dc.w    $102,0
  1105.     dc.w    $104,0
  1106.     dc.w    $108,0
  1107.     dc.w    $10a,0
  1108.  
  1109. SALEBPLPOINTERS:
  1110.     dc.w    $e0,$0,$e2,$0
  1111.     dc.w    $e4,$0,$e6,$0
  1112.     dc.w    $e8,$0,$ea,$0
  1113.     dc.w    $ec,$0,$ee,$0
  1114.  
  1115.     dc.w    $100,%0100001000000000
  1116.  
  1117.     dc.w    $106,$c00
  1118.     dc.w    $180,$000,$182,$9a9,$184,$125,$186,$114,$188,$236,$18a,$246
  1119.     dc.w    $18c,$476,$18e,$358
  1120.     dc.w    $190,$369,$192,$687,$194,$48a,$196,$49b,$198,$5bc,$19a,$6ed
  1121.     dc.w    $19c,$310,$19e,$cdc
  1122.     dc.w    $106,$e00
  1123.     dc.w    $180,$000,$182,$4b2,$184,$c43,$186,$ae3,$188,$312,$18a,$d65
  1124.     dc.w    $18c,$a1c,$18e,$120
  1125.     dc.w    $190,$9a1,$192,$375,$194,$7fb,$196,$cb3,$198,$9e9,$19a,$b89
  1126.     dc.w    $19c,$ace,$19e,$f19
  1127.  
  1128.     dc.w    $FFFF,$FFFE    ; Fine della copperlist
  1129.  
  1130. COPLIST2:
  1131.     dc.w    $8e,$2c81
  1132.     dc.w    $90,$2cc1
  1133.     dc.w    $92,$0038
  1134.     dc.w    $94,$00d0
  1135.     dc.w    $102,$0
  1136.     dc.w    $104,$0
  1137.     dc.w    $108,$0
  1138.     dc.w    $10a,$0    
  1139.  
  1140. BPLPOINTERS2:
  1141.     dc.w    $e0,$0,$e2,$0
  1142.     dc.w    $e4,$0,$e6,$0
  1143.     dc.w    $e8,$0,$ea,$0
  1144.     dc.w    $ec,$0,$ee,$0
  1145.  
  1146.     dc.w    $100,%0100001000000000
  1147.  
  1148.     dc.w    $106,$c00
  1149.     dc.w    $180,$000,$182,$9a9,$184,$125,$186,$114,$188,$236,$18a,$246
  1150.     dc.w    $18c,$476,$18e,$358
  1151.     dc.w    $190,$369,$192,$687,$194,$48a,$196,$49b,$198,$5bc,$19a,$6ed
  1152.     dc.w    $19c,$310,$19e,$cdc
  1153.     dc.w    $106,$e00
  1154.     dc.w    $180,$000,$182,$4b2,$184,$c43,$186,$ae3,$188,$312,$18a,$d65
  1155.     dc.w    $18c,$a1c,$18e,$120
  1156.     dc.w    $190,$9a1,$192,$375,$194,$7fb,$196,$cb3,$198,$9e9,$19a,$b89
  1157.     dc.w    $19c,$ace,$19e,$f19
  1158.  
  1159. FinePic1:
  1160.     dc.w    $6607,$fffe
  1161.  
  1162. FINECOP:
  1163.     dc.w    $FFFF,$FFFE    ; Fine della copperlist1
  1164.  
  1165. COPLIST3:
  1166.     dc.w    $6607,$fffe
  1167.  
  1168.     dc.w    $100,%0000001000010001
  1169.     dc.w    $8e,$2c91    ; DiwStrt
  1170.     dc.w    $90,$2cb1    ; DiwStop
  1171.     dc.w    $108,0        ; Bpl1Mod
  1172.     dc.w    $10a,0        ; Bpl2Mod
  1173.  
  1174. BPLPOINTERS3:
  1175.     dc.w    $e0,$0,$e2,$0
  1176.     dc.w    $e4,$0,$e6,$0
  1177.     dc.w    $e8,$0,$ea,$0
  1178.     dc.w    $ec,$0,$ee,$0
  1179.     dc.w    $f0,$0,$f2,$0
  1180.     dc.w    $f4,$0,$f6,$0
  1181.     dc.w    $f8,$0,$fa,$0
  1182.     dc.w    $fc,$0,$fe,$0
  1183.  
  1184.     dc.w    $106,$c00
  1185. COLP0:
  1186.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1187.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1188.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1189.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1190.     DC.W    $106,$e00
  1191. COLP0B:
  1192.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1193.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1194.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1195.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1196.     DC.W    $106,$2C00
  1197.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1198.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1199.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1200.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1201.     DC.W    $106,$2E00
  1202.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1203.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1204.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1205.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1206.     DC.W    $106,$4C00
  1207.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1208.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1209.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1210.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1211.     DC.W    $106,$4E00
  1212.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1213.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1214.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1215.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1216.     DC.W    $106,$6C00
  1217.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1218.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1219.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1220.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1221.     DC.W    $106,$6E00
  1222.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1223.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1224.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1225.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1226.     DC.W    $106,$8C00
  1227.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1228.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1229.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1230.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1231.     DC.W    $106,$8E00
  1232.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1233.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1234.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1235.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1236.     DC.W    $106,$AC00
  1237.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1238.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1239.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1240.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1241.     DC.W    $106,$AE00
  1242.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1243.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1244.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1245.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1246.     DC.W    $106,$CC00
  1247.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1248.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1249.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1250.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1251.     DC.W    $106,$CE00
  1252.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1253.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1254.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1255.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1256.     DC.W    $106,$EC00
  1257.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1258.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1259.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1260.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1261.     DC.W    $106,$EE00
  1262.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1263.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1264.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1265.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1266.  
  1267.     dc.w    $1fc,0        ; Burst mode azzerato
  1268.  
  1269.     ; Dithering...    
  1270.     
  1271.     dc.w    $7007,$fffe,$102,$11
  1272.     dc.w    $7107,$fffe,$102,$00
  1273.     dc.w    $7207,$fffe,$102,$11
  1274.     dc.w    $7307,$fffe,$102,$00
  1275.     dc.w    $7407,$fffe,$102,$11
  1276.     dc.w    $7507,$fffe,$102,$00
  1277.     dc.w    $7607,$fffe,$102,$11
  1278.     dc.w    $7707,$fffe,$102,$00
  1279.     dc.w    $7807,$fffe,$102,$11
  1280.     dc.w    $7907,$fffe,$102,$00
  1281.     dc.w    $7a07,$fffe,$102,$11
  1282.     dc.w    $7b07,$fffe,$102,$00
  1283.     dc.w    $7c07,$fffe,$102,$11
  1284.     dc.w    $7d07,$fffe,$102,$00
  1285.     dc.w    $7e07,$fffe,$102,$11
  1286.     dc.w    $7f07,$fffe,$102,$00
  1287.     dc.w    $8007,$fffe,$102,$11
  1288.     dc.w    $8107,$fffe,$102,$00
  1289.     dc.w    $8207,$fffe,$102,$11
  1290.     dc.w    $8307,$fffe,$102,$00
  1291.     dc.w    $8407,$fffe,$102,$11
  1292.     dc.w    $8507,$fffe,$102,$00
  1293.     dc.w    $8607,$fffe,$102,$11
  1294.     dc.w    $8707,$fffe,$102,$00
  1295.     dc.w    $8807,$fffe,$102,$11
  1296.     dc.w    $8907,$fffe,$102,$00
  1297.     dc.w    $8a07,$fffe,$102,$11
  1298.     dc.w    $8b07,$fffe,$102,$00
  1299.     dc.w    $8c07,$fffe,$102,$11
  1300.     dc.w    $8d07,$fffe,$102,$00
  1301.     dc.w    $8e07,$fffe,$102,$11
  1302.     dc.w    $8f07,$fffe,$102,$00
  1303.     dc.w    $9007,$fffe,$102,$11
  1304.     dc.w    $9107,$fffe,$102,$00
  1305.     dc.w    $9207,$fffe,$102,$11
  1306.     dc.w    $9307,$fffe,$102,$00
  1307.     dc.w    $9407,$fffe,$102,$11
  1308.     dc.w    $9507,$fffe,$102,$00
  1309.     dc.w    $9607,$fffe,$102,$11
  1310.     dc.w    $9707,$fffe,$102,$00
  1311.     dc.w    $9807,$fffe,$102,$11
  1312.     dc.w    $9907,$fffe,$102,$00
  1313.     dc.w    $9a07,$fffe,$102,$11
  1314.     dc.w    $9b07,$fffe,$102,$00
  1315.     dc.w    $9c07,$fffe,$102,$11
  1316.     dc.w    $9d07,$fffe,$102,$00
  1317.     dc.w    $9e07,$fffe,$102,$11
  1318.     dc.w    $9f07,$fffe,$102,$00
  1319.     dc.w    $a007,$fffe,$102,$11
  1320.     dc.w    $a107,$fffe,$102,$00
  1321.     dc.w    $a207,$fffe,$102,$11
  1322.     dc.w    $a307,$fffe,$102,$00
  1323.     dc.w    $a407,$fffe,$102,$11
  1324.     dc.w    $a507,$fffe,$102,$00
  1325.     dc.w    $a607,$fffe,$102,$11
  1326.     dc.w    $a707,$fffe,$102,$00
  1327.     dc.w    $a807,$fffe,$102,$11
  1328.     dc.w    $a907,$fffe,$102,$00
  1329.     dc.w    $aa07,$fffe,$102,$11
  1330.     dc.w    $ab07,$fffe,$102,$00
  1331.     dc.w    $ac07,$fffe,$102,$11
  1332.     dc.w    $ad07,$fffe,$102,$00
  1333.     dc.w    $ae07,$fffe,$102,$11
  1334.     dc.w    $af07,$fffe,$102,$00
  1335.     dc.w    $b007,$fffe,$102,$11
  1336.     dc.w    $b107,$fffe,$102,$00
  1337.     dc.w    $b207,$fffe,$102,$11
  1338.     dc.w    $b307,$fffe,$102,$00
  1339.     dc.w    $b407,$fffe,$102,$11
  1340.     dc.w    $b507,$fffe,$102,$00
  1341.     dc.w    $b607,$fffe,$102,$11
  1342.     dc.w    $b707,$fffe,$102,$00
  1343.     dc.w    $b807,$fffe,$102,$11
  1344.     dc.w    $b907,$fffe,$102,$00
  1345.     dc.w    $ba07,$fffe,$102,$11
  1346.     dc.w    $bb07,$fffe,$102,$00
  1347.     dc.w    $bc07,$fffe,$102,$11
  1348.     dc.w    $bd07,$fffe,$102,$00
  1349.     dc.w    $be07,$fffe,$102,$11
  1350.     dc.w    $bf07,$fffe,$102,$00
  1351.     dc.w    $c007,$fffe,$102,$11
  1352.     dc.w    $c107,$fffe,$102,$00
  1353.     dc.w    $c207,$fffe,$102,$11
  1354.     dc.w    $c307,$fffe,$102,$00
  1355.     dc.w    $c407,$fffe,$102,$11
  1356.     dc.w    $c507,$fffe,$102,$00
  1357.     dc.w    $c607,$fffe,$102,$11
  1358.     dc.w    $c707,$fffe,$102,$00
  1359.     dc.w    $c807,$fffe,$102,$11
  1360.     dc.w    $c907,$fffe,$102,$00
  1361.     dc.w    $ca07,$fffe,$102,$11
  1362.     dc.w    $cb07,$fffe,$102,$00
  1363.     dc.w    $cc07,$fffe,$102,$11
  1364.     dc.w    $cd07,$fffe,$102,$00
  1365.     dc.w    $ce07,$fffe,$102,$11
  1366.     dc.w    $cf07,$fffe,$102,$00
  1367.     dc.w    $d007,$fffe,$102,$11
  1368.     dc.w    $d107,$fffe,$102,$00
  1369.     dc.w    $d207,$fffe,$102,$11
  1370.     dc.w    $d307,$fffe,$102,$00
  1371.     dc.w    $d407,$fffe,$102,$11
  1372.     dc.w    $d507,$fffe,$102,$00
  1373.     dc.w    $d607,$fffe,$102,$11
  1374.     dc.w    $d707,$fffe,$102,$00
  1375.     dc.w    $d807,$fffe,$102,$11
  1376.     dc.w    $d907,$fffe,$102,$00
  1377.     dc.w    $da07,$fffe,$102,$11
  1378.     dc.w    $db07,$fffe,$102,$00
  1379.     dc.w    $dc07,$fffe,$102,$11
  1380.     dc.w    $dd07,$fffe,$102,$00
  1381.     dc.w    $de07,$fffe,$102,$11
  1382.     dc.w    $df07,$fffe,$102,$00
  1383.     dc.w    $e007,$fffe,$102,$11
  1384.     dc.w    $e107,$fffe,$102,$00
  1385.     dc.w    $e207,$fffe,$102,$11
  1386.     dc.w    $e307,$fffe,$102,$00
  1387.     dc.w    $e407,$fffe,$102,$11
  1388.     dc.w    $e507,$fffe,$102,$00
  1389.     dc.w    $e607,$fffe,$102,$11
  1390.     dc.w    $e707,$fffe,$102,$00
  1391.     dc.w    $108,40
  1392.     dc.w    $10a,40
  1393.     dc.w    $e807,$fffe,$102,$11
  1394.     dc.w    $108,-40*2
  1395.     dc.w    $10a,-40*2
  1396.     dc.w    $e907,$fffe,$102,$00
  1397.     dc.w    $ea07,$fffe,$102,$11
  1398.     dc.w    $eb07,$fffe,$102,$00
  1399.     dc.w    $ec07,$fffe,$102,$11
  1400.     dc.w    $ed07,$fffe,$102,$00
  1401.     dc.w    $ee07,$fffe,$102,$11
  1402.     dc.w    $ef07,$fffe,$102,$00
  1403.     dc.w    $f007,$fffe,$102,$11
  1404.     dc.w    $f107,$fffe,$102,$00
  1405.     dc.w    $f207,$fffe,$102,$11
  1406.     dc.w    $f307,$fffe,$102,$00
  1407.     dc.w    $f407,$fffe,$102,$11
  1408.     dc.w    $f507,$fffe,$102,$00
  1409.     dc.w    $f607,$fffe,$102,$11
  1410.     dc.w    $f707,$fffe,$102,$00
  1411.     dc.w    $f807,$fffe,$102,$11
  1412.     dc.w    $f907,$fffe,$102,$00
  1413.     dc.w    $fa07,$fffe,$102,$11
  1414.     dc.w    $fb07,$fffe,$102,$00
  1415.     dc.w    $fc07,$fffe,$102,$11
  1416.     dc.w    $fd07,$fffe,$102,$00
  1417.     dc.w    $fe07,$fffe,$102,$11
  1418.     dc.w    $ff07,$fffe,$102,$00
  1419.     dc.w    $0007,$fffe,$102,$11
  1420.     dc.w    $0107,$fffe,$102,$00
  1421.     dc.w    $0207,$fffe,$102,$11
  1422.     dc.w    $0307,$fffe,$102,$00
  1423.     dc.w    $0407,$fffe,$102,$11
  1424.     dc.w    $0507,$fffe,$102,$00
  1425.     dc.w    $0607,$fffe,$102,$11
  1426.     dc.w    $0707,$fffe,$102,$00
  1427.     dc.w    $0807,$fffe,$102,$11
  1428.     dc.w    $0907,$fffe,$102,$00
  1429.     dc.w    $0a07,$fffe,$102,$11
  1430.     dc.w    $0b07,$fffe,$102,$00
  1431.     dc.w    $0c07,$fffe,$102,$11
  1432.     dc.w    $0d07,$fffe,$102,$00
  1433.     dc.w    $0e07,$fffe,$102,$11
  1434.     dc.w    $0f07,$fffe,$102,$00
  1435.     dc.w    $1007,$fffe,$102,$11
  1436.     dc.w    $1107,$fffe,$102,$00
  1437.     dc.w    $1207,$fffe,$102,$11
  1438.     dc.w    $1307,$fffe,$102,$00
  1439.     dc.w    $1407,$fffe,$102,$11
  1440.     dc.w    $1507,$fffe,$102,$00
  1441.     dc.w    $1607,$fffe,$102,$11
  1442.     dc.w    $1707,$fffe,$102,$00
  1443.     dc.w    $1807,$fffe,$102,$11
  1444.     dc.w    $1907,$fffe,$102,$00
  1445.     dc.w    $1a07,$fffe,$102,$11
  1446.     dc.w    $1b07,$fffe,$102,$00
  1447.     dc.w    $1c07,$fffe,$102,$11
  1448.     dc.w    $1d07,$fffe,$102,$00
  1449.     dc.w    $1e07,$fffe,$102,$11
  1450.     dc.w    $1f07,$fffe,$102,$00
  1451.     dc.w    $2007,$fffe,$102,$11
  1452.     dc.w    $2107,$fffe,$102,$00
  1453.     dc.w    $2207,$fffe,$102,$11
  1454.     dc.w    $2307,$fffe,$102,$00
  1455.     dc.w    $2407,$fffe,$102,$11
  1456.     dc.w    $2507,$fffe,$102,$00
  1457.     dc.w    $2607,$fffe,$102,$11
  1458.     dc.w    $2707,$fffe,$102,$00
  1459.     dc.w    $2807,$fffe,$102,$11
  1460.     dc.w    $2907,$fffe,$102,$00
  1461.     dc.w    $2a07,$fffe,$102,$11
  1462.     dc.w    $2b07,$fffe,$102,$00
  1463.     dc.w    $2c07,$fffe,$102,$11
  1464.     dc.w    $2d07,$fffe,$102,$00
  1465.     dc.w    $2e07,$fffe,$102,$11
  1466.     dc.w    $2f07,$fffe,$102,$00
  1467.     
  1468.     dc.w    $ffff,$fffe
  1469.  
  1470. COPVUOTO:
  1471.     dc.w    $6607,$fffe
  1472.  
  1473. BPLVUOTO:
  1474.     dc.w $e0,$0,$e2,$0
  1475.  
  1476.     dc.w    $100,%0001001000000000
  1477.     dc.w    $8e,$2c91    ; DiwStrt
  1478.     dc.w    $90,$2cb1    ; DiwStop
  1479.     dc.w    $102,0
  1480.     dc.w    $104,0
  1481.     dc.w    $108,0        ; Bpl1Mod
  1482.     dc.w    $10a,0        ; Bpl2Mod
  1483.  
  1484. COPCOLORS:
  1485.     DC.W    $106,$c00
  1486.     dc.w    $180,$0,$182,$fff
  1487.     DC.W    $106,$e00
  1488.     dc.w    $180,$0,$182,$fff
  1489.  
  1490.     dc.w    $ffff,$fffe
  1491.  
  1492. COPLIST5:
  1493.     dc.w    $6607,$fffe
  1494.  
  1495.     dc.w    $100,%0000001000010001
  1496.     dc.w    $8e,$2c91    ; DiwStrt
  1497.     dc.w    $90,$2cb1    ; DiwStop
  1498.     dc.w    $108,0        ; Bpl1Mod
  1499.     dc.w    $10a,0        ; Bpl2Mod
  1500.  
  1501. BPLPOINTERS5:
  1502.     dc.w    $e0,$0,$e2,$0
  1503.     dc.w    $e4,$0,$e6,$0
  1504.     dc.w    $e8,$0,$ea,$0
  1505.     dc.w    $ec,$0,$ee,$0
  1506.     dc.w    $f0,$0,$f2,$0
  1507.     dc.w    $f4,$0,$f6,$0
  1508.     dc.w    $f8,$0,$fa,$0
  1509.     dc.w    $fc,$0,$fe,$0
  1510.  
  1511.     DC.W    $106,$c00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE ALTI
  1512. TUNNELCOLP0:
  1513.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1514.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1515.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1516.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1517.  
  1518.     DC.W    $106,$e00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE BASSI
  1519. TUNNELCOLP0B:
  1520.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1521.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1522.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1523.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1524.  
  1525.     DC.W    $106,$2C00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE ALTI
  1526.  
  1527.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1528.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1529.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1530.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1531.  
  1532.     DC.W    $106,$2E00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE BASSI
  1533.  
  1534.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1535.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1536.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1537.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1538.  
  1539.     DC.W    $106,$4C00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE ALTI
  1540.  
  1541.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1542.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1543.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1544.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1545.  
  1546.     DC.W    $106,$4E00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE BASSI
  1547.  
  1548.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1549.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1550.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1551.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1552.  
  1553.     DC.W    $106,$6C00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE ALTI
  1554.  
  1555.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1556.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1557.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1558.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1559.  
  1560.     DC.W    $106,$6E00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE BASSI
  1561.  
  1562.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1563.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1564.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1565.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1566.  
  1567.     DC.W    $106,$8C00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE ALTI
  1568.  
  1569.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1570.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1571.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1572.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1573.  
  1574.     DC.W    $106,$8E00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE BASSI
  1575.  
  1576.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1577.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1578.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1579.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1580.  
  1581.     DC.W    $106,$AC00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE ALTI
  1582.  
  1583.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1584.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1585.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1586.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1587.  
  1588.     DC.W    $106,$AE00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE BASSI
  1589.  
  1590.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1591.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1592.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1593.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1594.  
  1595.     DC.W    $106,$CC00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE ALTI
  1596.  
  1597.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1598.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1599.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1600.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1601.  
  1602.     DC.W    $106,$CE00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE BASSI
  1603.  
  1604.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1605.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1606.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1607.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1608.  
  1609.     DC.W    $106,$EC00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE ALTI
  1610.  
  1611.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1612.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1613.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1614.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1615.  
  1616.     DC.W    $106,$EE00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE BASSI
  1617.  
  1618.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1619.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1620.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1621.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1622.  
  1623.     dc.w    $1fc,0        ; Burst mode azzerato
  1624.     dc.w    $102
  1625. CON1EFFETTO:
  1626.     dc.w    0
  1627.     dc.w    $3007,$fffe,$102,$11
  1628.     dc.w    $3207,$fffe,$102,$11
  1629.     dc.w    $3407,$fffe,$102,$11
  1630.     dc.w    $3607,$fffe,$102,$11
  1631.     dc.w    $3807,$fffe,$102,$22
  1632.     dc.w    $3a07,$fffe,$102,$22
  1633.     dc.w    $3c07,$fffe,$102,$22
  1634.     dc.w    $3e07,$fffe,$102,$22
  1635.     dc.w    $4007,$fffe,$102,$33
  1636.     dc.w    $4207,$fffe,$102,$33
  1637.     dc.w    $4407,$fffe,$102,$33
  1638.     dc.w    $4607,$fffe,$102,$33
  1639.     dc.w    $4807,$fffe,$102,$44
  1640.     dc.w    $4a07,$fffe,$102,$44
  1641.     dc.w    $4c07,$fffe,$102,$44
  1642.     dc.w    $4e07,$fffe,$102,$44
  1643.     dc.w    $5007,$fffe,$102,$55
  1644.     dc.w    $5207,$fffe,$102,$55
  1645.     dc.w    $5407,$fffe,$102,$55
  1646.     dc.w    $5607,$fffe,$102,$55
  1647.     dc.w    $5807,$fffe,$102,$66
  1648.     dc.w    $5a07,$fffe,$102,$66
  1649.     dc.w    $5c07,$fffe,$102,$66
  1650.     dc.w    $5e07,$fffe,$102,$66
  1651.     dc.w    $6007,$fffe,$102,$77
  1652.     dc.w    $6207,$fffe,$102,$77
  1653.     dc.w    $6407,$fffe,$102,$77
  1654.     dc.w    $6607,$fffe,$102,$77
  1655.     dc.w    $6807,$fffe,$102,$88
  1656.     dc.w    $6a07,$fffe,$102,$88
  1657.     dc.w    $6c07,$fffe,$102,$88
  1658.     dc.w    $6e07,$fffe,$102,$88
  1659.     dc.w    $7007,$fffe,$102,$99
  1660.     dc.w    $7207,$fffe,$102,$99
  1661.     dc.w    $7407,$fffe,$102,$99
  1662.     dc.w    $7607,$fffe,$102,$99
  1663.     dc.w    $7807,$fffe,$102,$aa
  1664.     dc.w    $7a07,$fffe,$102,$aa
  1665.     dc.w    $7c07,$fffe,$102,$aa
  1666.     dc.w    $7e07,$fffe,$102,$aa
  1667.     dc.w    $8007,$fffe,$102,$bb
  1668.     dc.w    $8207,$fffe,$102,$bb
  1669.     dc.w    $8407,$fffe,$102,$bb
  1670.     dc.w    $8607,$fffe,$102,$bb
  1671.     dc.w    $8807,$fffe,$102,$cc
  1672.     dc.w    $8a07,$fffe,$102,$cc
  1673.     dc.w    $8c07,$fffe,$102,$cc
  1674.     dc.w    $8e07,$fffe,$102,$cc
  1675.     dc.w    $9007,$fffe,$102,$dd
  1676.     dc.w    $9207,$fffe,$102,$dd
  1677.     dc.w    $9407,$fffe,$102,$dd
  1678.     dc.w    $9607,$fffe,$102,$dd
  1679.     dc.w    $9807,$fffe,$102,$ee
  1680.     dc.w    $9a07,$fffe,$102,$ee
  1681.     dc.w    $9c07,$fffe,$102,$ee
  1682.     dc.w    $9e07,$fffe,$102,$ee
  1683.     dc.w    $a007,$fffe,$102,$ff
  1684.     dc.w    $a207,$fffe,$102,$ff
  1685.     dc.w    $a407,$fffe,$102,$ff
  1686.     dc.w    $a607,$fffe,$102,$ff
  1687.     dc.w    $a807,$fffe,$102,$ff
  1688.     dc.w    $aa07,$fffe,$102,$ff
  1689.     dc.w    $ac07,$fffe,$102,$ff
  1690.     dc.w    $ae07,$fffe,$102,$ff
  1691.     dc.w    $b007,$fffe,$102,$ff
  1692.     dc.w    $b207,$fffe,$102,$ff
  1693.     dc.w    $b407,$fffe,$102,$ff
  1694.     dc.w    $b607,$fffe,$102,$ff
  1695.     dc.w    $b807,$fffe,$102,$ff
  1696.     dc.w    $ba07,$fffe,$102,$ee
  1697.     dc.w    $bc07,$fffe,$102,$ee
  1698.     dc.w    $be07,$fffe,$102,$ee
  1699.     dc.w    $c007,$fffe,$102,$ee
  1700.     dc.w    $c207,$fffe,$102,$dd
  1701.     dc.w    $c407,$fffe,$102,$dd
  1702.     dc.w    $c607,$fffe,$102,$dd
  1703.     dc.w    $c807,$fffe,$102,$dd
  1704.     dc.w    $ca07,$fffe,$102,$cc
  1705.     dc.w    $cc07,$fffe,$102,$cc
  1706.     dc.w    $ce07,$fffe,$102,$cc
  1707.     dc.w    $d007,$fffe,$102,$cc
  1708.     dc.w    $d207,$fffe,$102,$bb
  1709.     dc.w    $d407,$fffe,$102,$bb
  1710.     dc.w    $d607,$fffe,$102,$bb
  1711.     dc.w    $d807,$fffe,$102,$bb
  1712.     dc.w    $da07,$fffe,$102,$aa
  1713.     dc.w    $dc07,$fffe,$102,$aa
  1714.     dc.w    $de07,$fffe,$102,$aa
  1715.     dc.w    $e007,$fffe,$102,$aa
  1716.     dc.w    $e207,$fffe,$102,$99
  1717.     dc.w    $e407,$fffe,$102,$99
  1718.     dc.w    $e607,$fffe,$102,$99
  1719.     dc.w    $e807,$fffe,$102,$99
  1720.     dc.w    $ea07,$fffe,$102,$88
  1721.     dc.w    $ec07,$fffe,$102,$88
  1722.     dc.w    $ee07,$fffe,$102,$88
  1723.     dc.w    $f007,$fffe,$102,$88
  1724.     dc.w    $f207,$fffe,$102,$77
  1725.     dc.w    $f407,$fffe,$102,$77
  1726.     dc.w    $f607,$fffe,$102,$77
  1727.     dc.w    $f807,$fffe,$102,$77
  1728.     dc.w    $fc07,$fffe,$102,$66
  1729.     dc.w    $fe07,$fffe,$102,$66
  1730.     dc.w    $ff07,$fffe,$102,$66
  1731.     dc.w    $0207,$fffe,$102,$66
  1732.     dc.w    $0407,$fffe,$102,$55
  1733.     dc.w    $0607,$fffe,$102,$55
  1734.     dc.w    $0807,$fffe,$102,$55
  1735.     dc.w    $0c07,$fffe,$102,$55
  1736.     dc.w    $0e07,$fffe,$102,$44
  1737.     dc.w    $1207,$fffe,$102,$44
  1738.     dc.w    $1407,$fffe,$102,$44
  1739.     dc.w    $1607,$fffe,$102,$44
  1740.     dc.w    $1807,$fffe,$102,$33
  1741.     dc.w    $1a07,$fffe,$102,$33
  1742.     dc.w    $1c07,$fffe,$102,$33
  1743.     dc.w    $1e07,$fffe,$102,$33
  1744.     dc.w    $2207,$fffe,$102,$22
  1745.     dc.w    $2407,$fffe,$102,$22
  1746.     dc.w    $2607,$fffe,$102,$22
  1747.     dc.w    $2807,$fffe,$102,$22
  1748.     dc.w    $2a07,$fffe,$102,$11
  1749.     dc.w    $2c07,$fffe,$102,$11
  1750.     dc.w    $2e07,$fffe,$102,$11
  1751.     dc.w    $3207,$fffe,$102,$11
  1752.     dc.w    $3407,$fffe,$102,$11
  1753.     dc.w    $3607,$fffe,$102,$11
  1754.     dc.w    $e407,$fffe,$102
  1755.  
  1756. ULTIMOVALORE:
  1757.     dc.w    0
  1758.  
  1759.     dc.w    $ffff,$fffe
  1760.  
  1761. CHUNKYOFFSET:
  1762.     dc.w    2656
  1763.  
  1764. PALETTETUNNEL:
  1765.         dc.l    $00000000,$00A0A0A0,$0000AA00,$0000AAAA
  1766.         dc.l    $00AA0000,$00AA00AA,$00AA5500,$00AAAAAA
  1767.         dc.l    $00555555,$005555FF,$0055FF55,$0055FFFF
  1768.         dc.l    $00FF5555,$00FF55FF,$00FFFF55,$00FFFFFF
  1769.         dc.l    $00EFEFEF,$00DFDFDF,$00D3D3D3,$00C3C3C3
  1770.         dc.l    $00B7B7B7,$00ABABAB,$009B9B9B,$008F8F8F
  1771.         dc.l    $007F7F7F,$00737373,$00676767,$00575757
  1772.         dc.l    $004B4B4B,$003B3B3B,$002F2F2F,$00232323
  1773.         dc.l    $00FF0000,$00EF0000,$00E30000,$00D70000
  1774.         dc.l    $00CB0000,$00BF0000,$00B30000,$00A70000
  1775.         dc.l    $009B0000,$008B0000,$007F0000,$00730000
  1776.         dc.l    $00670000,$005B0000,$004F0000,$00400000
  1777.         dc.l    $00FFDADA,$00FFBABA,$00FF9F9F,$00FF7F7F
  1778.         dc.l    $00FF5F5F,$00FF4040,$00FF2020,$00FF0000
  1779.         dc.l    $00FCA85C,$00FC9840,$00FC8820,$00FC7800
  1780.         dc.l    $00E46C00,$00CC6000,$00B45400,$009C4C00
  1781.         dc.l    $00FCFCD8,$00FCFCB8,$00FCFC9C,$00FCFC7C
  1782.         dc.l    $00FCF85C,$00FCF440,$00FCF420,$00FCF400
  1783.         dc.l    $00E4D800,$00CCC400,$00B4AC00,$009C9C00
  1784.         dc.l    $00848400,$00706C00,$00585400,$00404000
  1785.         dc.l    $00D0FC5C,$00C4FC40,$00B4FC20,$00A0FC00
  1786.         dc.l    $0090E400,$0080CC00,$0074B400,$00609C00
  1787.         dc.l    $00D8FCD8,$00BCFCB8,$009CFC9C,$0080FC7C
  1788.         dc.l    $0060FC5C,$0040FC40,$0020FC20,$0000FC00
  1789.         dc.l    $0000FF00,$0000EF00,$0000E300,$0000D700
  1790.         dc.l    $0007CB00,$0007BF00,$0007B300,$0007A700
  1791.         dc.l    $00079B00,$00078B00,$00077F00,$00077300
  1792.         dc.l    $00076700,$00075B00,$00074F00,$00044000
  1793.         dc.l    $00DAFFFF,$00B8FCFC,$009CFCFC,$007CFCF8
  1794.         dc.l    $005CFCFC,$0040FCFC,$0020FCFC,$0000FCFC
  1795.         dc.l    $0000E4E4,$0000CCCC,$0000B4B4,$00009C9C
  1796.         dc.l    $00008484,$00007070,$00005858,$00004040
  1797.         dc.l    $005CBCFC,$0040B0FC,$0020A8FC,$00009CFC
  1798.         dc.l    $00008CE4,$00007CCC,$00006CB4,$00005C9C
  1799.         dc.l    $00DADAFF,$00BABFFF,$009F9FFF,$007F80FF
  1800.         dc.l    $005F60FF,$004040FF,$002025FF,$000005FF
  1801.         dc.l    $000000FF,$000000EF,$000000E3,$000000D7
  1802.         dc.l    $000000CB,$000000BF,$000000B3,$000000A7
  1803.         dc.l    $0000009B,$0000008B,$0000007F,$00000073
  1804.         dc.l    $00000067,$0000005B,$0000004F,$00000040
  1805.         dc.l    $00F0DAFF,$00E5BAFF,$00DA9FFF,$00D07FFF
  1806.         dc.l    $00CA5FFF,$00BF40FF,$00B520FF,$00AA00FF
  1807.         dc.l    $009A00E5,$008000CF,$007500B5,$0060009F
  1808.         dc.l    $00500085,$00450070,$0035005A,$002A0040
  1809.         dc.l    $00FFDAFF,$00FFBAFF,$00FF9FFF,$00FF7FFF
  1810.         dc.l    $00FF5FFF,$00FF40FF,$00FF20FF,$00FF00FF
  1811.         dc.l    $00E000E5,$00CA00CF,$00B500B5,$009F009F
  1812.         dc.l    $00850085,$006F0070,$005A005A,$00400040
  1813.         dc.l    $00FFE9DE,$00F7DDD0,$00F0D1C3,$00E9C7B7
  1814.         dc.l    $00E1BAAA,$00DAB09E,$00D3A494,$00CC9B89
  1815.         dc.l    $00C59080,$00BE8676,$00B67C6B,$00AF7363
  1816.         dc.l    $00A86B5A,$00A16152,$009A594A,$00935043
  1817.         dc.l    $008B483B,$00843F34,$007E392E,$00773128
  1818.         dc.l    $00702C23,$0069261D,$00611F18,$005A1B14
  1819.         dc.l    $00531510,$004C110D,$00450C09,$003E0907
  1820.         dc.l    $00360504,$002F0302,$00280101,$00210000
  1821.         dc.l    $00FF5858,$00FFBE80,$00FFFE82,$0082FF84
  1822.         dc.l    $0080FFFF,$008080FF,$00BF80FF,$00FE80FF
  1823.         dc.l    $00C72B2B,$00C74F2B,$00C7772B,$00C79F2B
  1824.         dc.l    $00C7C72B,$009FC72B,$0077C72B,$004FC72B
  1825.         dc.l    $002BC733,$002BC75F,$002BC78B,$002BC7B7
  1826.         dc.l    $002BABC7,$002B7FC7,$002B53C7,$002F2BC7
  1827.         dc.l    $005B2BC7,$00872BC7,$00B32BC7,$00C72BAF
  1828.         dc.l    $00C72B83,$00C72B57,$00C72B2B,$00FFFFFF
  1829.  
  1830. CHUNKYPALETTE:
  1831.     dc.l    $00235182,$0094a2a2,$002020f0,$003030f0,$004040f0,$005050f0
  1832.     dc.l    $006060f0,$007070f0,$008080f0,$009090f0,$00a0a0f0,$00b0b0f0
  1833.     dc.l    $00c0c0f0,$00d0d0f0,$00e0e0f0,$00f0f0f0
  1834.  
  1835.  
  1836.     cnop    0,8
  1837. TITOLO:
  1838.     incbin    "jokonda.raw"
  1839.  
  1840. SALE:
  1841.     incbin    "stsale.raw"
  1842.  
  1843.     ds.b    4000
  1844. SFERA:
  1845.     incbin    "sfera.RAW"
  1846.  
  1847. DEFY:
  1848.     incbin    "st.raw"
  1849.  
  1850. TUNNEL:
  1851.     incbin    "prospettiva.raw"
  1852.  
  1853. VUOTO:
  1854.     dcb.b    40*256,$ff
  1855.  
  1856. CREDITS:
  1857.     dcb.b    40*256,$00
  1858.  
  1859. FONT:
  1860. ; ' '
  1861.     dc.b    %00000000
  1862.     dc.b    %00000000
  1863.     dc.b    %00000000
  1864.     dc.b    %00000000
  1865.     dc.b    %00000000
  1866.     dc.b    %00000000
  1867.     dc.b    %00000000
  1868.     dc.b    %00000000
  1869. ; '!'
  1870.     dc.b    %00011000
  1871.     dc.b    %00011000
  1872.     dc.b    %00011000
  1873.     dc.b    %00011000
  1874.     dc.b    %00011000
  1875.     dc.b    %00000000
  1876.     dc.b    %00011000
  1877.     dc.b    %00000000
  1878. ; '"'
  1879.     dc.b    %00011011
  1880.     dc.b    %00011011
  1881.     dc.b    %00011011
  1882.     dc.b    %00000000
  1883.     dc.b    %00000000
  1884.     dc.b    %00000000
  1885.     dc.b    %00000000
  1886.     dc.b    %00000000
  1887. ; '#'
  1888.     dc.b    %00010100
  1889.     dc.b    %00010100
  1890.     dc.b    %00010100
  1891.     dc.b    %01111111
  1892.     dc.b    %00010100
  1893.     dc.b    %00010100
  1894.     dc.b    %00010100
  1895.     dc.b    %00000000
  1896. ; '$'
  1897.     dc.b    %00001000
  1898.     dc.b    %00011110
  1899.     dc.b    %00100000
  1900.     dc.b    %00011100
  1901.     dc.b    %00000010
  1902.     dc.b    %00111100
  1903.     dc.b    %00001000
  1904.     dc.b    %00000000
  1905. ; '%'
  1906.     dc.b    %00000001
  1907.     dc.b    %00110011
  1908.     dc.b    %00110110
  1909.     dc.b    %00001100
  1910.     dc.b    %00011000
  1911.     dc.b    %00110110
  1912.     dc.b    %01100110
  1913.     dc.b    %00000000
  1914. ; '&'
  1915.     dc.b    %00011000
  1916.     dc.b    %00100100
  1917.     dc.b    %00011000
  1918.     dc.b    %00011001
  1919.     dc.b    %00100110
  1920.     dc.b    %00111110
  1921.     dc.b    %00011001
  1922.     dc.b    %00000000
  1923. ; "'"
  1924.     dc.b    %00001100
  1925.     dc.b    %00001100
  1926.     dc.b    %00001100
  1927.     dc.b    %00000000
  1928.     dc.b    %00000000
  1929.     dc.b    %00000000
  1930.     dc.b    %00000000
  1931.     dc.b    %00000000
  1932. ; "("
  1933.     dc.b    %00001100
  1934.     dc.b    %00011000
  1935.     dc.b    %00110000
  1936.     dc.b    %00110000
  1937.     dc.b    %00110000
  1938.     dc.b    %00011000
  1939.     dc.b    %00001100
  1940.     dc.b    %00000000
  1941. ; ")"
  1942.     dc.b    %00110000
  1943.     dc.b    %00011000
  1944.     dc.b    %00001100
  1945.     dc.b    %00001100
  1946.     dc.b    %00001100
  1947.     dc.b    %00011000
  1948.     dc.b    %00110000
  1949.     dc.b    %00000000
  1950. ; "*"
  1951.     dc.b    %01100011
  1952.     dc.b    %00110110
  1953.     dc.b    %00011100
  1954.     dc.b    %01111111
  1955.     dc.b    %00011100
  1956.     dc.b    %00110110
  1957.     dc.b    %01100011
  1958.     dc.b    %00000000
  1959. ; '+'
  1960.     dc.b    %00000000
  1961.     dc.b    %00011000
  1962.     dc.b    %00011000
  1963.     dc.b    %01111110
  1964.     dc.b    %00011000
  1965.     dc.b    %00011000
  1966.     dc.b    %00000000
  1967.     dc.b    %00000000
  1968. ; ","
  1969.     dc.b    %00000000
  1970.     dc.b    %00000000
  1971.     dc.b    %00000000
  1972.     dc.b    %00000000
  1973.     dc.b    %00011000
  1974.     dc.b    %00011000
  1975.     dc.b    %00110000
  1976.     dc.b    %00000000
  1977. ; "-"
  1978.     dc.b    %00000000
  1979.     dc.b    %00000000
  1980.     dc.b    %00000000
  1981.     dc.b    %01111110
  1982.     dc.b    %00000000
  1983.     dc.b    %00000000
  1984.     dc.b    %00000000
  1985.     dc.b    %00000000
  1986. ; "."
  1987.     dc.b    %00000000
  1988.     dc.b    %00000000
  1989.     dc.b    %00000000
  1990.     dc.b    %00000000
  1991.     dc.b    %00000000
  1992.     dc.b    %00011000
  1993.     dc.b    %00011000
  1994.     dc.b    %00000000
  1995. ; "/"
  1996.     dc.b    %00000001
  1997.     dc.b    %00000011
  1998.     dc.b    %00000110
  1999.     dc.b    %00001100
  2000.     dc.b    %00011000
  2001.     dc.b    %00110000
  2002.     dc.b    %01100000
  2003.     dc.b    %00000000
  2004. ; '0'
  2005.     dc.b    %00111110
  2006.     dc.b    %01100011
  2007.     dc.b    %01100011
  2008.     dc.b    %01100011
  2009.     dc.b    %01100011
  2010.     dc.b    %01100011
  2011.     dc.b    %00111110
  2012.     dc.b    %00000000
  2013. ; '1'
  2014.     dc.b    %00011000
  2015.     dc.b    %00111000
  2016.     dc.b    %00011000
  2017.     dc.b    %00011000
  2018.     dc.b    %00011000
  2019.     dc.b    %00011000
  2020.     dc.b    %00011000
  2021.     dc.b    %00000000
  2022. ; '2'
  2023.     dc.b    %00111110
  2024.     dc.b    %01100110
  2025.     dc.b    %00001100
  2026.     dc.b    %00011000
  2027.     dc.b    %00110000
  2028.     dc.b    %01100000
  2029.     dc.b    %01111110
  2030.     dc.b    %00000000
  2031. ; '3'
  2032.     dc.b    %01111110
  2033.     dc.b    %00000011
  2034.     dc.b    %00000011
  2035.     dc.b    %00011110
  2036.     dc.b    %00000011
  2037.     dc.b    %00000011
  2038.     dc.b    %01111110
  2039.     dc.b    %00000000
  2040. ; '4'
  2041.     dc.b    %00000011
  2042.     dc.b    %00000110
  2043.     dc.b    %00001100
  2044.     dc.b    %00011000
  2045.     dc.b    %00110011
  2046.     dc.b    %01111111
  2047.     dc.b    %00000011
  2048.     dc.b    %00000000
  2049. ; '5'
  2050.     dc.b    %01111111
  2051.     dc.b    %01100000
  2052.     dc.b    %01100000
  2053.     dc.b    %00111110
  2054.     dc.b    %00000011
  2055.     dc.b    %00000011
  2056.     dc.b    %01111110
  2057.     dc.b    %00000000
  2058. ; '6'
  2059.     dc.b    %00111111
  2060.     dc.b    %01100000
  2061.     dc.b    %01100000
  2062.     dc.b    %01111110
  2063.     dc.b    %01100011
  2064.     dc.b    %01100011
  2065.     dc.b    %00111110
  2066.     dc.b    %00000000
  2067. ; '7'
  2068.     dc.b    %01111111
  2069.     dc.b    %00000011
  2070.     dc.b    %00000110
  2071.     dc.b    %00001100
  2072.     dc.b    %00011000
  2073.     dc.b    %00110000
  2074.     dc.b    %01100000
  2075.     dc.b    %00000000
  2076. ; '8'
  2077.     dc.b    %00111110
  2078.     dc.b    %01100011
  2079.     dc.b    %01100011
  2080.     dc.b    %00111110
  2081.     dc.b    %01100011
  2082.     dc.b    %01100011
  2083.     dc.b    %00111110
  2084.     dc.b    %00000000
  2085. ; '9'
  2086.     dc.b    %00111110
  2087.     dc.b    %01100011
  2088.     dc.b    %01100011
  2089.     dc.b    %00111111
  2090.     dc.b    %00000011
  2091.     dc.b    %00000011
  2092.     dc.b    %01111110
  2093.     dc.b    %00000000
  2094. ; ':'
  2095.     dc.b    %00000000
  2096.     dc.b    %00000000
  2097.     dc.b    %00000000
  2098.     dc.b    %00000000
  2099.     dc.b    %00000000
  2100.     dc.b    %00000000
  2101.     dc.b    %00000000
  2102.     dc.b    %00000000
  2103. ; ';'
  2104.     dc.b    %00000000
  2105.     dc.b    %00000000
  2106.     dc.b    %00000000
  2107.     dc.b    %00000000
  2108.     dc.b    %00000000
  2109.     dc.b    %00000000
  2110.     dc.b    %00000000
  2111.     dc.b    %00000000
  2112. ; "<"
  2113.     dc.b    %00000000
  2114.     dc.b    %00000000
  2115.     dc.b    %00000000
  2116.     dc.b    %00000000
  2117.     dc.b    %00000000
  2118.     dc.b    %00000000
  2119.     dc.b    %00000000
  2120.     dc.b    %00000000
  2121. ; "="
  2122.     dc.b    %00000000
  2123.     dc.b    %00000000
  2124.     dc.b    %00000000
  2125.     dc.b    %00000000
  2126.     dc.b    %00000000
  2127.     dc.b    %00000000
  2128.     dc.b    %00000000
  2129.     dc.b    %00000000
  2130. ; ">"
  2131.     dc.b    %00000000
  2132.     dc.b    %00000000
  2133.     dc.b    %00000000
  2134.     dc.b    %00000000
  2135.     dc.b    %00000000
  2136.     dc.b    %00000000
  2137.     dc.b    %00000000
  2138.     dc.b    %00000000
  2139. ; '?'
  2140.     dc.b    %00111110
  2141.     dc.b    %01100011
  2142.     dc.b    %00000011
  2143.     dc.b    %00000110
  2144.     dc.b    %00001100
  2145.     dc.b    %00000000
  2146.     dc.b    %00001100
  2147.     dc.b    %00000000
  2148. ; "@"
  2149.     dc.b    %00000000
  2150.     dc.b    %00000000
  2151.     dc.b    %00000000
  2152.     dc.b    %00000000
  2153.     dc.b    %00000000
  2154.     dc.b    %00000000
  2155.     dc.b    %00000000
  2156.     dc.b    %00000000
  2157. ; "A"
  2158.     dc.b    %00111110
  2159.     dc.b    %01100011
  2160.     dc.b    %01100011
  2161.     dc.b    %01111111
  2162.     dc.b    %01100011
  2163.     dc.b    %01100011
  2164.     dc.b    %01100011
  2165.     dc.b    %00000000
  2166. ; "B"
  2167.     dc.b    %01111110
  2168.     dc.b    %01100011
  2169.     dc.b    %01100011
  2170.     dc.b    %01111110
  2171.     dc.b    %01100011
  2172.     dc.b    %01100011
  2173.     dc.b    %01111110
  2174.     dc.b    %00000000
  2175. ; 'C'
  2176.     dc.b    %00111111
  2177.     dc.b    %01110000
  2178.     dc.b    %01100000
  2179.     dc.b    %01100000
  2180.     dc.b    %01100000
  2181.     dc.b    %01110000
  2182.     dc.b    %00111111
  2183.     dc.b    %00000000
  2184. ; 'D'
  2185.     dc.b    %01111110
  2186.     dc.b    %01100011
  2187.     dc.b    %01100011
  2188.     dc.b    %01100011
  2189.     dc.b    %01100011
  2190.     dc.b    %01100011
  2191.     dc.b    %01111110
  2192.     dc.b    %00000000
  2193. ; 'E'
  2194.     dc.b    %01111111
  2195.     dc.b    %01100000
  2196.     dc.b    %01100000
  2197.     dc.b    %01111100
  2198.     dc.b    %01100000
  2199.     dc.b    %01100000
  2200.     dc.b    %01111111
  2201.     dc.b    %00000000
  2202. ; 'F'
  2203.     dc.b    %01111111
  2204.     dc.b    %01100000
  2205.     dc.b    %01100000
  2206.     dc.b    %01111100
  2207.     dc.b    %01100000
  2208.     dc.b    %01100000
  2209.     dc.b    %01100000
  2210.     dc.b    %00000000
  2211. ; 'G'
  2212.     dc.b    %00111111
  2213.     dc.b    %01110000
  2214.     dc.b    %01100000
  2215.     dc.b    %01100111
  2216.     dc.b    %01100011
  2217.     dc.b    %01110111
  2218.     dc.b    %00111110
  2219.     dc.b    %00000000
  2220. ; 'H'
  2221.     dc.b    %01100011
  2222.     dc.b    %01100011
  2223.     dc.b    %01100011
  2224.     dc.b    %01111111
  2225.     dc.b    %01100011
  2226.     dc.b    %01100011
  2227.     dc.b    %01100011
  2228.     dc.b    %00000000
  2229. ; 'I'
  2230.     dc.b    %00011110
  2231.     dc.b    %00001100
  2232.     dc.b    %00001100
  2233.     dc.b    %00001100
  2234.     dc.b    %00001100
  2235.     dc.b    %00001100
  2236.     dc.b    %00011110
  2237.     dc.b    %00000000
  2238. ; 'J'
  2239.     dc.b    %00000011
  2240.     dc.b    %00000011
  2241.     dc.b    %00000011
  2242.     dc.b    %00000011
  2243.     dc.b    %01100011
  2244.     dc.b    %01110011
  2245.     dc.b    %00111111
  2246.     dc.b    %00000000
  2247. ; 'K'
  2248.     dc.b    %01100011
  2249.     dc.b    %01100110
  2250.     dc.b    %01101100
  2251.     dc.b    %01111000
  2252.     dc.b    %01101100
  2253.     dc.b    %01100110
  2254.     dc.b    %01100011
  2255.     dc.b    %00000000
  2256. ; 'L'
  2257.     dc.b    %01100000
  2258.     dc.b    %01100000
  2259.     dc.b    %01100000
  2260.     dc.b    %01100000
  2261.     dc.b    %01100000
  2262.     dc.b    %01100000
  2263.     dc.b    %01111111
  2264.     dc.b    %00000000
  2265. ; 'M'
  2266.     dc.b    %01100011
  2267.     dc.b    %01110111
  2268.     dc.b    %01101011
  2269.     dc.b    %01100011
  2270.     dc.b    %01100011
  2271.     dc.b    %01100011
  2272.     dc.b    %01100011
  2273.     dc.b    %00000000
  2274. ; 'N'
  2275.     dc.b    %01100011
  2276.     dc.b    %01110011
  2277.     dc.b    %01111011
  2278.     dc.b    %01101111
  2279.     dc.b    %01100111
  2280.     dc.b    %01100011
  2281.     dc.b    %01100011
  2282.     dc.b    %00000000
  2283. ; 'O'
  2284.     dc.b    %00111110
  2285.     dc.b    %01110111
  2286.     dc.b    %01100011
  2287.     dc.b    %01100011
  2288.     dc.b    %01100011
  2289.     dc.b    %01110111
  2290.     dc.b    %00111110
  2291.     dc.b    %00000000
  2292. ; 'P'
  2293.     dc.b    %01111110
  2294.     dc.b    %01100011
  2295.     dc.b    %01100011
  2296.     dc.b    %01111110
  2297.     dc.b    %01100000
  2298.     dc.b    %01100000
  2299.     dc.b    %01100000
  2300.     dc.b    %00000000
  2301. ; 'Q'
  2302.     dc.b    %00111110
  2303.     dc.b    %01110111
  2304.     dc.b    %01100011
  2305.     dc.b    %01100011
  2306.     dc.b    %01100011
  2307.     dc.b    %01110111
  2308.     dc.b    %00111111
  2309.     dc.b    %00000000
  2310. ; 'R'
  2311.     dc.b    %01111110
  2312.     dc.b    %01100011
  2313.     dc.b    %01100011
  2314.     dc.b    %01111110
  2315.     dc.b    %01100011
  2316.     dc.b    %01100011
  2317.     dc.b    %01100011
  2318.     dc.b    %00000000
  2319. ; 'S'
  2320.     dc.b    %00111111
  2321.     dc.b    %01100000
  2322.     dc.b    %01100000
  2323.     dc.b    %00111110
  2324.     dc.b    %00000011
  2325.     dc.b    %00000011
  2326.     dc.b    %01111110
  2327.     dc.b    %00000000
  2328. ; 'T'
  2329.     dc.b    %01111111
  2330.     dc.b    %00011100
  2331.     dc.b    %00011100
  2332.     dc.b    %00011100
  2333.     dc.b    %00011100
  2334.     dc.b    %00011100
  2335.     dc.b    %00011100
  2336.     dc.b    %00000000
  2337. ; 'U'
  2338.     dc.b    %01100011
  2339.     dc.b    %01100011
  2340.     dc.b    %01100011
  2341.     dc.b    %01100011
  2342.     dc.b    %01100011
  2343.     dc.b    %01110111
  2344.     dc.b    %00111110
  2345.     dc.b    %00000000
  2346. ; 'V'
  2347.     dc.b    %01100011
  2348.     dc.b    %01100011
  2349.     dc.b    %01100011
  2350.     dc.b    %01100011
  2351.     dc.b    %01100011
  2352.     dc.b    %00110110
  2353.     dc.b    %00011100
  2354.     dc.b    %00000000
  2355. ; 'W'
  2356.     dc.b    %01100011
  2357.     dc.b    %01100011
  2358.     dc.b    %01100011
  2359.     dc.b    %01100011
  2360.     dc.b    %01101011
  2361.     dc.b    %01110111
  2362.     dc.b    %01100011
  2363.     dc.b    %00000000
  2364. ; 'X'
  2365.     dc.b    %01100011
  2366.     dc.b    %01100011
  2367.     dc.b    %00110110
  2368.     dc.b    %00001000
  2369.     dc.b    %00110110
  2370.     dc.b    %01100011
  2371.     dc.b    %01100011
  2372.     dc.b    %00000000
  2373. ; 'Y'
  2374.     dc.b    %01100011
  2375.     dc.b    %01100011
  2376.     dc.b    %01110111
  2377.     dc.b    %00111111
  2378.     dc.b    %00000011
  2379.     dc.b    %00000111
  2380.     dc.b    %01111110
  2381.     dc.b    %00000000
  2382. ; 'Z'
  2383.     dc.b    %01111111
  2384.     dc.b    %00000011
  2385.     dc.b    %00000110
  2386.     dc.b    %00001100
  2387.     dc.b    %00011000
  2388.     dc.b    %00110000
  2389.     dc.b    %01111111
  2390.     dc.b    %00000000
  2391.  
  2392.     cnop    0,4
  2393.     SECTION    texture,DATA
  2394. CHUNKYPIC:
  2395.     incbin    "texture.CHK"
  2396.  
  2397.     end        
  2398.